#!/usr/bin/perl

use warnings;

my $file = "Casos-de-teste.properties"; #Arquivo de entrada
my $siglaCasoUso = "GC"; #Condiz à Gestão de Clientes
my ($identificador,$descricao,$especie,$itemDeTeste,$itensRequeridos,$itensProibidos,$mensagemEsperada);


sub removeSinais($){
	local $str=shift;
	$str=~s/\</%/;
	$str=~s/\>/%/;
	return $str;
}

sub valida(){
	$descricao="-" if ($descricao eq '');
	if ($especie eq ''){ 
		$especie="-" ;
	} else { $especie="$siglaCasoUso-$especie" if (not($especie=~/inexistente/)) ; }
	$itemDeTeste="-" if ($itemDeTeste eq '');
	$itensRequeridos="-" if ($itensRequeridos eq '');
	$itensProibidos="-" if ($itensProibidos eq '');
	$mensagemEsperada="-" if ($mensagemEsperada eq '');
}

open (FILE,"<$file");
while(<FILE>){
	local $line=$_;
	$line=removeSinais($line);

	($identificador,$line)=split(/=/,$line,2);
	$identificador="$siglaCasoUso-$identificador";
	($descricao,$especie,$itemDeTeste,$itensRequeridos,$itensProibidos,$mensagemEsperada)=split(/\;/,$line);

	valida();

	print qq[
<casoDeTeste>
	<identificador>$identificador</identificador>
	<descrição>$descricao</descrição>
	<espécie>$especie</espécie>
	<itemDeTeste>$itemDeTeste</itemDeTeste>
	<itensRequeridos>$itensRequeridos</itensRequeridos>
	<itensProibidos>$itensProibidos</itensProibidos>
	<mensagemEsperada>%nenhuma%</mensagemEsperada>
</casoDeTeste>];


}
close(FILE);

print "\n\n\n---->>> REVISE A COERÊNCIA DOS RESULTADOS!!! <<<----\n\n";

